Sub ListOLEObjects()
    Dim oleObj As OLEObject
    Dim doc As Document
    Set doc = ActiveDocument

    Dim mathTypeClassType As String
    mathTypeClassType = "MathType.Equation" ' MathType对象的类名前部分

    For Each oleObj In doc.OLEObjects
        If InStr(1, oleObj.ClassType, mathTypeClassType) > 0 Then
            oleObj.Select
            MathTypeCommands.MTCommand_TeXToggle
        Next If
    Next oleObj
End Sub